home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #274 (1993)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #274 (1993)(Rhein-Sieg-Soft).adf
/
WS_PackHELP
/
INSTALL-WS_PackHELP
< prev
next >
Wrap
Text File
|
1993-10-20
|
5KB
|
184 lines
; WS_PackHELP Installation V1.0
;
(complete 0)
(working "\n\nSie haben den Auto-Modus gewählt!\n"
"Von nun an läuft alles automatisch ab!\n\n"
"Lehnen Sie sich zurück und warten Sie ab!")
; ------- WS_PackHELP KOPIEREN
(set @default-source
(askdir
(prompt "Bitte wählen Sie das Verzeichnis oder die Diskette mit"
" dem Programm WS_PackHELP aus!")
(help "Das Verzeichnis oder die Diskette enthält das Programm WS_PackHELP "
"die Dokumentation, die Config-Datei und auch das Installation-Programm\n\n"
@askdir-help)
(default "")
)
)
(set @default-dest ; Verzeichnis aussuchen
(askdir
(prompt "In welches Verzeichnis soll WS_PackHELP kopiert werden ? ")
(help "Wählen Sie zuerst eine Partition Ihrer Festplatte, ein Laufwerk"
" oder ein Verzeichnis aus, auf das Sie gerne WS_PackHELP installieren"
" würden. Dann drücken Sie auf PROCEED und das Programm beginnt mit "
"der Arbeit.\n\n" )
@askdir-help
(default "SYS:WS_PackHELP")
)
)
(if ; Verzeichnis erzeugen
(= (exists @default-dest) 0)
(makedir @default-dest)
)
(copyfiles ; WS_PackHELP kopieren
(prompt "\nWS_PackHELP wird in das Verzeichnis kopiert ...\n")
(help @copyfiles-help)
(source @default-source)
(dest @default-dest)
(pattern "WS_PackHELP#?")
(confirm)
)
(set @SourceDocsDir (tackon @default-source "Docs"))
(set @SourceDocsDir
(askdir
(prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Doc-Dateien"
" kopiert werden sollen aus!")
(help "Das Verzeichnis enthält die Dokumentationsdateien des Programmes"
" WS_PackHELP\n\n"
@askdir-help)
(default @SourceDocsDir)
)
)
(set @DestDocsDir (tackon @default-dest "Docs"))
(if ; Verzeichnis erzeugen
(= (exists @DestDocsDir) 0)
(makedir @DestDocsDir)
)
(set @DestDocsDir
(askdir
(prompt "Bitte wählen Sie das Verzeichnis aus, in das die Doc-Dateien"
" kopiert werden sollen aus!")
(help "Das Verzeichnis enthält dann die kopierten Doc-Dateien des Programmes"
" WS_PackHELP\n\n"
@askdir-help)
(default @DestDocsDir)
)
)
(copyfiles ; WS_PackHELP Doc-Dateien kopieren
(prompt "\nWS_PackHELP Docs-Dateien werden in das Verzeichnis kopiert ...\n")
(help @copyfiles-help)
(source @SourceDocsDir)
(dest @DestDocsDir)
(all)
(confirm)
)
(set @default-config "s")
(copyfiles ; CONFIG nach s: kopieren
(prompt "\nDie Konfigurationsdateien werden nach s: kopiert ...\n")
(help @copyfiles-help)
(source @default-config)
(dest "s:")
(newname "Packer.config_New")
(choices "Packer.config")
(confirm)
)
(if
(= (exists (tackon @DestDocsDir "WS_PackHELP.dok")) 0)
(copyfiles
(prompt "\nDie ReadMe-Datei wird kopiert ...\n")
(help @copyfiles-help)
(source @default-source)
(dest @default-dest)
(choices "ReadMe" "ReadMe.info")
(confirm)
)
)
(if
(= (exists (tackon @DestDocsDir "WS_PackHELP.doc")) 0)
(copyfiles
(prompt "\nDie Liesmich-Datei wird kopiert ...\n")
(help @copyfiles-help)
(source @default-source)
(dest @default-dest)
(choices "Liesmich" "Liesmich.info")
(confirm)
)
)
(set @SourceRegDir (tackon @default-source "Registration"))
(set @SourceRegDir
(askdir
(prompt "Bitte wählen Sie das Verzeichnis aus, aus dem die Registrierungs-Dateien"
" kopiert werden sollen aus!")
(help "Das Verzeichnis enthält die Registrierungs-Dateien des Programmes"
" WS_PackHELP\n\n"
@askdir-help)
(default @SourceRegDir)
)
)
(set @DestRegDir (tackon @default-dest "Registration"))
(if ; Verzeichnis erzeugen
(= (exists @DestRegDir) 0)
(makedir @DestRegDir)
)
(set @DestRegDir
(askdir
(prompt "Bitte wählen Sie das Verzeichnis aus, in das die Registrierungs-Dateien"
" kopiert werden sollen aus!")
(help "Das Verzeichnis enthält dann die kopierten Registireungs-Dateien des Programmes"
" WS_PackHELP\n\n"
@askdir-help)
(default @DestRegDir)
)
)
(copyfiles ; WS_PackHELP Registration kopieren
(prompt "\nWS_PackHELP Registrierungs-Dateien werden in das Verzeichnis kopiert ...\n")
(help @copyfiles-help)
(source @SourceRegDir)
(dest @DestRegDir)
(all)
(confirm)
)
(copyfiles
(prompt "\nDas Installprogramm und Installscript werden kopiert\n")
(help @copyfiles-help)
(source @default-source)
(dest @default-dest)
(pattern "In#?")
(confirm)
)
(complete 100)
; ------- FERTIG
(message (cat
"\nInstallation von WS_PackHELP ist beendet.\n\n"
"Entfernen Sie nun die Diskette aus Ihrem Laufwerk, wenn Sie "
"das Programm von einer Diskette installiert haben und starten Sie "
"WS_PackHELP.\n\nViel Spaß !")
)